Pascal-2 


Introduction to the Language Specification 

The Pascal-2 compiler processes the standard Pascal language, as described in the Pascal User 
Manual and Report [2nd edition], by Kathleen Jensen and Niklaus Wirth, published by Springer- 
Verlag, corrected printing of 1978. This language is more completely described in ISO Draft Proposal 
7185, ISO/TC 97/SC 5, dated August 12, 1982, which we call the “draft standard” hereafter. 

Compliance is Level 1: conformant array parameters are included. Pascal-2 includes the extensions 
detailed in this guide. This guide includes data on non-standard language features. This guide is not 
intended as a full language document. 

Syntax definitions in this specification use the notation described in Appendix C, Pascal-2 Syntax. 



Changes in the Standard 

Because you may not be familiar with all the changes to the Pascal language from Jensen and 
Wirth (1978) to the most recent draft of the standard (1982), this section outlines those changes and 
Pascal-2’s method of implementing them. 


‘For* Statement Control Variables 

Variables that control a for statement must be simple variables, local to the routine in which the 
lor statement is written. Originally, any variable could be used. 

File Declaration 

The standard states that the files input and output are automatically declared as global variables 
if they are mentioned in the program heading. Because program headings are optional in Pascal-2, 
input and output are declared as global variables in every Pascal-2 program. Thus, you cannot 
redefine input or output at the global level. In earlier versions of the language, the actual point of 
definition was undefined. 


Parameter Compatibility 

The compatibility rules for var parameters are now defined according to a restrictive rule, which 
requires the argument passed to have the same type as the formal parameter. Although the types 
must be the same, the type identifiers may differ. The appearance of a new type construct creates a 
new type. Previously, the rules for rar parameters were undefined. 
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Procedure and Function Parameters 

The draft standard has changed the method of declaring procedure and function parameters. The 
new syntax provides a way of checking the parameters of these procedures and functions, thus 
reducing the likelihood of type errors. 

The syntax for a parameter list is changed to: 

parameter-list = u ( n parameter-section {“;" parameter-section }“)” . 

parameter-section = ( [ “var" ] identiSer identifier (identifier 

| conformant-array-schema ) ) | procedure-heading | function-heading . 

A full procedure heading must be provided for any procedure or function declared as a parameter, 
and the procedure heading for any procedure or function passed as an actual parameter must match. 
For example: 

var 

K, L: integer; 

procedure P(procedure Q(I. J:integer)); 
begin 
QCK. L); 
end; 

procedure P1(I,J: integer); 
begin 

writelnCtest oi proc parameters', I, J); 
end; 

begin 
K := 1; 

L := 20; 

P(Pl); 

end. 

The program issues the following output: 

test of proc parameters 1 20 

The draft standard does not allow a standard function to be used as a parameter for a function 
or procedure. To pass a standard function as a function or procedure argument, you must define 
a function that calls the standard function, then pass the user-defined function as the function or 
procedure argument. 


Conformant Array Parameters 

Normally, a procedure or function accepts an array parameter containing a fixed number of elements. 
The number of elements holding meaningful information may vary but the size of the array may 
not. If you need to pass arrays of different lengths, you have to declare and pass a general array 
that is as long as the longest possible array, and you must track the last element of each. Another 
approach is to write a separate procedure to handle each size of array, which is clearly inefficient. 

Use of conformant array parameters solves this problem. Conformant array parameters are formal 
parameters that allow you to write a general procedure or function that, at each activation, accepts 
array parameters of different size and with different lower and upper bounds. At activation, the 
upper and lower bounds of the conformant array parameter assume the upper and lower bounds of 
the passed parameter (the actual parameter). 
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The syntax for a conformant array parameter is: 

conformant-array-parameter-specification = 

[ “var” ] identifier-list conformant-array-schema . 

conformant-array-schema = packed-conformant-array-schema 
| nnpacked-conformant-array-schema . 

packed-conformant-array-schema = “packed array” 

“[” index-type-specification “]” “of” type-identifier . 

unpacked-conformant-arrayschema = “array” “[” index-type-specification 

{“;” index-type-specification }“]” “of” ( type-identifier | conformant-array-schema 

)• 

index-type-specification = bound-identifier “..” bound-identifier “:” type-identifier . 

As the EBNF diagrams show, a conformant array schema may be either packed or unpacked. Am 
unpacked conformant array may be nested within itself or within other conformant arrays (either 
packed or unpacked); if so, an abbreviated form may be used. In the example below, Mx is the 
conformant array parameter being used in Examp. Tl, T2 and T3 are data types. The two definitions 
are equivalent. Notice that the semicolon in the abbreviated form replaces of array [’ in the 
long form. 

procedure ExampCvar Mx: array [Lbl..Ubl: Tl] of array [Lb2..Ub2: T2] of T3); 

or 

procedure ExampCvar Mx: array [Lbl..Ubl: Tl; Lb2..Ub2: T2] of T3); 

An array may be passed as a conformant array parameter if: 

• the elements have the same types, 

• the index types are compatible, and 

• the bounds are within the range specified by the parameter declaration. 

If two parameters are specified with a single conformant array schema, the actual parameter passed 
must have the same type. Also, a value conformant array may not be passed as a parameter to 
another procedure or function. 

The next example demonstrates the use of conformant array parameters. The formal parameter 
Arr is a conformant array parameter and takes the values of two different-sized arrays, First and 
Second. At the first activation of the function AddArray, the two elements of array First are added 
together to reach a sum. The next activation adds up the four elements of array Second and arrives 













Pascal-2 V2.1/RT-11 Language Specification 


at a different sum, as shown in the output following the program listing. 

program Conform; 
var 

First: array [1..2] of integer; { two-element array > 

Second: array [0..3] of integer; { four-element array > 

Total: integer; 

function AddArray(var Arr: array [Lover..Upper: integer] of integer): integer 
var 

I, Sum: integer; 
begin 

Sum := 0; 

for I := Lower to Upper do 
Sum := Sum + Arr[I]; 

AddArray := Stun 
end; 

begin 

First[1] := 5; First[2] := 9; 

Total := AddArray (First) ; -called with two-element array 

writelnCTotal for this array is: 1 , Total:5); 

Second[0] := 1; Second[1] := -31; Second[2] := 77; Second[3] := 15; 

Total := AddArray (Second) ; -called with four-element array 

writelnCTotal for this array is: 1 , Total:5) 
end. 

Running the program yields: 

Total for this array is: 14 -sum of elements of array First 

Total for this array is: 62 -sum of elements of array Second 

For a practical example of the use of conformant array parameters, see the source code of Pascal-2’s 
Dynamic String Package, in the file STRING.PAS. 


Literal Strings 

A literal string may not extend over more than a single line. Earlier standards were unclear on this 
point. The limitation allows better diagnostics for unterminated strings. 


‘Write,’ ‘Writeln’ of ‘Packed Array of Char’ 

A write or writeln procedure call applied to a packed array of char writes only as many 
characters as the field-width parameter specifies. If the packed array of char exceeds the field- 
width, the string is truncated. The string is right-justified if the specified field width is longer than 
the packed array. If no field width is specified, a write or writeln writes as many characters as are 
in the string. 
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Example: 

program Buff; 
rar 

Buffer: packed array [1..30] of char; 

BuffCount: integer; 

begin 

Buffer:= 'This is a packed array of char 1 ; 
writeln(Buffer); 

BuffCount := 6; 
writeln (Buffer: Buff Count) ; 
write In ('cutoff :3) ; 
write('shorter':10); 
end. 

When executed, the program yields these results: 

This is a packed array of char 

This i 

cut 

shorter _____-note leading blanks 


Identifiers 

The initial character of an identifier must be an alphabetic character or a dollar sign. All other 
characters making up identifiers may be any combination of digits, letters, dollar signs or underbars. 
Identifiers may be of any length; all characters are significant. Lower-case characters are interpreted 
in the same way as upper-case characters. For example, name, Name, NamE, and NAME are equivalent. 
See “Syntax Extensions” for details on the the use of the non-standard dollar sign and underbar in 
identifiers. 

Alternate Symbol Representations 

The standard now defines alternate representations for symbols that are unavailable in some charac¬ 
ter sets. These are: 

Standard Symbol Alternate Symbol 

~ or T 0 (‘at’ sign) 

{ (* 

> *) 

C (• 

] •) 

The alternate comment delimiters are equivalent to the standard comment delimiters, and a comment 
may open with one type of delimiter and close with the other. Comments may not be nested. 

Examples: 

(* This is a valid comment > 

{ This is (* not *) a valid comment > 
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Implementation Definitions 

This section provides details and characteristics of implementation-defined elements of Pascal-2. 

Standard Type ‘Integer’ 

The predefined identifier maxint has the value 32767. 

The standard type integer has the range (-32767..32767). An unsigned (extended-range) integer 
may be defined with the range 0..65535. See “Unsigned Integer Conversion” in the Programmer’s 
Guide. 

Standard Type ‘Real’ 

A real variable has the standard PDP-11 single-precision or double-precision floating-point struc¬ 
ture, with magnitude in the range 1E-38..1E4-38. Single-precision values give approximately 7 
decimal digit precision; extended (double-precision) values give approximately 15-digit precision. 
Arithmetic overflow is detected for all real operations, but underflow is ignored and returns a result 
of zero. 

The standard transcendental routines are accurate to 6 decimal digits in single precision and to 15 
decimal digits in extended precision. 


Standard Type ‘Char’ 

The draft standard does not define the character set to be used internally to represent char. Pascal-2 
uses 8-bit characters, allowing the use of the extended version of the ASCII character set, rather 
than 7-bit characters to represent the standard ASCII character set. The most significant bit is “off” 
unless used with extended character sets. Ord(char) is in the range 0..255. 

Programs that calculate bit or byte offsets into a packed structure should treat a character as 8 bits, 
not 7; and storage size is the same for characters in either packed or unpacked structures. 


Standard Type ‘Text’ 

The standard type text is a file type with components of type char. Text is implemented as a file 
of 8-bit ASCII characters. 


‘Set’ Types 

Pascal-2 limits a set to a maximum of 256 elements. The lower and upper bounds must lie in the 
range 0..255, e.g., set of 4. .9. The declaration set of integer is equivalent to the declaration 
set of 0. .255. See “Undetected Errors” for restrictions on the checking of integer sets. 
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I/O Definitions 

The following table summarizes the default field widths used when values are written to a text file: 

Value Type Field Width 
integer 7 

real 13 

boolean 5 

The floating-point representation of a real number includes the sign of the number (a space for 
positive numbers and a *-* for negative numbers), the real number in scientific notation, an upper¬ 
case E signifying exponential notation, the sign of the exponent (*+’ or and a two-digit exponent. 
For example, the real number —105.39 prints as -1.053900E+02. 

Boolean values are written in upper case (TRUE, FALSE). In the five-character default field, the value 
TRUE is right-justified, with a leading blank before the ‘T\ 

The procedure page (F) inserts a form feed (page eject) into the file specified by the required file 
argument. Calling page(F) with data in the file buffer executes writeln(F), which writes the 
remainder of the buffer, and write(F,chr(12)), which writes the form-feed character. Calling 
page (F) with an empty file buffer results in a page eject only. 

If associated with the standard input file (the terminal), reset (input) performs the equivalent 
of a readln, but otherwise has no effect; in the same way, rewrite (output) prints any incom¬ 
plete line, but otherwise has no effect. Reset (output) or rewrite (input) produces an error mes¬ 
sage. See “External File Access” for details on the use of the extended form of reset (input) or 
rewrite(output). 
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Syntax Extensions 

This section describes Pascal-2 extensions to the syntax of standard Pascal. 

Identifiers 

The character $ (dollar sign) is allowed in an identifier anywhere an alphabetic character is allowed. 
The character _ (underbar) is allowed anywhere a numeric character is allowed. For example, the 
identifier _ABC is not valid because it begins with an underbar. The following are legal identifiers: 

system$name 
$$flie 

this_is_a._long_.identifier 
This_Is.Also_Legal 

Program Heading 

In standard Pascal, the program heading is required, and the parameters define the external files to 
be used: 

program Test (input, output, File3); 

In Pascal-2, the program heading and parameters are not required. If present, they will be checked 
for proper syntax. The file parameters will otherwise be ignored. Input and output are automatically 
declared file variables. Every other external file must be specified by an additional parameter allowed 
in the standard procedures reset and rewrite. See “External File Access” under “I/O Support 
Extensions” for details. 

Though not required, inclusion of the program name on the program statement is still a good practice 
because it names the object module for main programs and external modules. Further, the program 
name is used to name the psect when the own compilation switch is specified. 

Declaration Order 

The declaration sections label, const, type, var, procedure, and function may be interleaved 
as desired at the global level of a program. Const and type may be interleaved at other levels. 
This extension is useful for source module inclusion and structured constant definitions as described 
below. Any number of declaration sections of each type may be present. An identifier still must be 
defined before the identifier is used in any other way. 

‘^Include’ Lexical Directive 

A special directive allows separate text files to be included within a program. The contents of the 
separate file are inserted into the program at whatever point the ^include directive occurs. Included 
files may themselves contain Jf include directives, nested to a maximum of seven levels. 

The syntax for the Jfinclude directive is: 

^include 1 file-name-string* ; 

The file-name-string must contain at least the name of the file; if no file extension is specified, .PAS is 
assumed. In addition to the file name and extension, file-name-string may contain such information 
as the logical device name and disk volume number of the file. 

The single quotes ('...') enclosing file-name-string are optional. This syntax provides compatibility 
with other implementations of Pascal-2 that allow file version numbers. 
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Examples: 

Sinelads kdr; 

Unclad# 1 sat hdr. pas'; 

Unclad# t#ra.doc; 

Undid# 'sy:hfil'; 

See the Programmer’s Guide for details. 

‘35Pag#’ Lexical Directly# 

The Xpag# directive causes a page break (form feed) in the listing file immediately following the line 
on which the Xpag# directive is placed. The Xpag# directive itself is printed in the listing file on the 
last listed line of the page preceding the page eject. The ending semicolon is optional. 


‘External' and ‘NonPascal* Directive# 

Similar to the forward standard directive, the external directive distinguishes a particular Pascal 
procedure or function that is separate from the module that invokes it. An external procedure must 
be declared at the global level. If the body of an external procedure or function does not appear 
in a compilation, it is assumed that the body will be in another object module. If the body of the 
external procedure does appear, its name will be made available in the object module for reference 
by other modules. References to the external procedure are resohred at link time. 

Limitations of the object module structure require that external names be distinct within the first 
six characters. The underbar cannot be expressed in the object module format and is replaced by a 
period in the external name. No type checking is done for parameters of an external routine. 

The nonpascal directive is used instead of #xt#rnal if the external procedure is written in a 
language other than Pascal, lonpascal creates an interface between the Pascal-2 calling sequence 
of the program or module doing the calling and the DEC calling sequence required by non-Pascal 
external routine, usually a FORTRAN or MACRO-11 module. The nonpascal directive makes use 
of the convention of having register BS point to a list of parameters. All parameters are passed 
by reference, so only var parameters may be used. MACRO-11 routines written with the Pascal-2 
PASMAC utility must be declared as #xt#rnal rather than nonpascal, because PASMAC simulates 
the Pascal-2 calling sequence. 

See also “External Modules” in the Programmer’s Guide for details. 

Structured Constants 

The syntax for constant definitions is extended to allow you to specify constants in record and array 
types. Under the standard, arrays or records cannot be assigned values in the constants declarations; 
each element must be assigned a value in the program body with an assignment statement. The 
structured-constants language extension eliminates the need to use assignment statements to assign 
values to constants of type array or record. See the examples following for a comparison of 
structured constants declarations versus standard constant declarations. 
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The formal syntax for structured constants is: 
structured-constant ■ 

structared-type-identiBer constant-component-liat. 
constant-component-liat =* “(" constant-component {“,* constant-component }“)* . 
constant-component » constant | constant-component-liat . 

where 

structured-type-jdentifler 

Is a data type with an array or record strvetare. All of the components of that 
structure must be of simple types, array types, or record types. 

constant-component 

Must correspond one to one with the component of the structured (array or record) 
type, and each constant-component must be a constant of the same type as the 
corresponding structure component. An access to the structure component returns 
the value of the constant-component. If the structure component is of a structured 
type, only the corresponding constant-component-liat must be provided, declared with 
the proper syntax. 

The following are valid declarations. Note that the data types needed by the structured constant 
must be declared before the structured constants. 

typ# 

51 » packed array [1..4] of char; 

52 ■ record 
String: SI; 

end; 

const 

Cl » SK'a', 'b*. 'c'. 'd'); 

C2 « S2('abcd'); 

The strvctured-tjpe-identiBer for individual components need not be provided. For variant records 
(even those without a tag-field) a tag value must be provided in the constant-component-list. 

Constants used as components in a constant-component-liat appear between nested levels of paren¬ 
theses. If an element is another structured type, a constant type of the same structure may appear or 
its elements may be set individually between inner parentheses. However, you may not use structured 
constants or their individual elements as can* labels; cans labels must be of simple type. 

Examples at Structured Constanta 

Three examples are presented showing several uses of structured constants. The first example 
illustrates the nesting of parentheses in the structured constant declarations. The second example 
compares the standard’s method of declaring record or array constants with the structured constant 
method. The third example shows the correct way to declare multidimensional arrays of constants. 

The structured constant Vorkern in the following declarations contains three levels of parentheses: 
the first for the array structure; the next for the outer record; the last for the pay information. 
The fourth constant in the array, however, for Maxine, contains a structured element that is set by 


Updated January I08S 


3-10 





« 




Syntax Extensions 




reference to a constant of the same type with no further inner parentheses, 
type 

Compensation = (Paid, Unpaid); 

Paytype = Record 

Title : (Clerk, Indian, Chief, President); 
case Compensation of 
Paid: (Rate: real); 

Unpaid: (); 
end; 

Employeetable = array[1..4] of record 
Name : packed array[1..10] of char; 

Payinfo : Paytype; 
end; 

const 

Canchief = Paytype (Chief, Paid, 6.05); — note redefinition for Maxine 

Yorkers = Employeetable( 

(‘Charlie ‘, (Clerk, Paid, 3.40)), 

(‘Samuel ‘, (Indian, Paid, 5.25)), 

('Edvard ', (President, Unpaid)), 

('Maxine ', Conchief ) -note condensed form 

); 


To illustrate the efficiency and ease of use of structured constants, we present a comparison of 
the standard method of declaring constants for arrays and records versus the structured constants 
method. The program used in the comparison — DayCalc — calculates the day of the week for any 
date. The declarations below are those required to declare two arrays of constants, MonthName and 
DayOffset. Note that the type declarations are identical in both cases. The declaration of other 
data types, constants and variables have been omitted. 


To conform to the standard, constants in arrays and records must be declared and assigned values as 
shown below. This method requires many more statements than the equivalent structured constants 
declarations, provided following the standard example. 


program DayCalc; { use of standard constant declarations > 

type 

Month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec, 
Unknown); 

Name = packed array [1..3] of char; 

NameList = array [Month] of Name; 

DayOffsetList = packed array [Month] of 0..6; 


var 

MonthName: NameList; 
DayOffset: DayOffsetList; 


{ Text for name of month > 
{ Day mod 7 > 
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begin { DayCalc > 


MonthName [Jan] : = ' j an'; MonthName [Feb] 
MonthName[Apr] := 1 apr 1 ; MonthName[May] 
MonthName [Jul] := 1 jul 1 ; MonthName [Aug] 
MonthName [Oct] : = 1 oct 1 ; MonthName [Nov] 
MonthName [Unknown] : = • ??? 1 ; 


= 'feb'; MonthName [Mar] 
= 'may 1 ; MonthName [Jim] 
= 1 aug'; MonthName [Sep] 
= 'nov'; MonthName[Dec] 


'mar* 
1 jun* 
'sep' 
'dec 1 


DayOffset[Jan] := 0; DayOffset[Feb] := 3; DayOffset[Mar] := 3; 

DayOffset[Apr] := 6; DayOffset[May] := 1; DayOffset [Jun] := 4; 

DayOffset[Jul] := 6; DayOffset[Aug] := 2; DayOffset[Sep] := 5; 

DayOffset[Oct] := 0; DayOffset [Not] := 3; DayOffset [Dec] := 5; 

DayOffset[Unknown] : = 0; 

• --- rest of program goes here 


With structured constants, on the other hand, your code is much shorter and easier to maintain 
than with the standard method. The only drawbacks are that the program is non-standard and is 
not necessarily portable to other Pascal implementations. 

program DayCalc; { use of structured constants > 

type 

Month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Not, Dec, 
Unknown); 

DayOffsetList = packed array [Month] of 0..6; 

Name = packed array [1..3] of char; 

NameList = array [Month] of Name; 

const 

MonthName = NameList('jan 1 , 'feb', 'mar 1 , 'apr', 'may 1 , 'jun', 

•Jul 1 , 'aug 1 , 'sep', 'oct', 'nov', 'dec', '???'); 

DayQffset = DayOffsetList(0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5, 0); 

- rest of declarations and program body goes here 


Multidimensional arrays of constants, such as the two-dimensional array below, can be declared as 
in the following program. This program prints the elements of the two-dimensional array Table in 
the order they are stored. 

program TwoDimensions; 
const 

MazElem = 3; 
type 

CharTable = packed array [l..MaxElem, 1..MazElem] of char; 


const 


Table = CharTable(('x' . 

' 7 *. 

'z'). 

C'a\ 

'b\ 

'c'). 

C *p*. 

'd\ 



var 

I, J: integer; 
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begin { TwoDimensions > 

for I := 1 to MaxElem do 
for J := 1 to MaxElem do 
write(Table[I,J], • •); 

writeln; 

end. { TwoDimensions > 

Running this program yields: 

xyzabcpdq 

Default Case Label (‘Otherwise*) 

A default statement can be included in a case statement according to the following syntax: 

case-statement = “case” case-index “of" [ case-element {“;* case-element }] 

[“;*][ “otherwise* default-statement [“;*]] “end* . 

The default statement, which immediately follows the otherwise clause, is executed if no case label 
matches the value of the case-index. A special note on otherwise syntax: In contrast to the case 
label, which requires a colon, the otherwise clause must not contain a colon or a compilation error 
results. 

Example: 

case I of 
1: Ch := 

9: Ch := 

otherwise Ch := , * 1 ; 
end; 

The list case-element is optional, so the following example is valid. 

case I of 
otherwise I := 1; 
end; 
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I/O Support Extensions 

rrcr prOTide —* **. ta 

External File Access 

TM*fBi SIe ~ r ? T u b!e j device ' or ' me ' IlajIle > default-values, file-status); 

*t(file-variable, device-or-Gle-name. default-values, fi/e-status); 

where 
file-variable 

is a standard Pascal file variable. 
device-or-file-name 

" he r me ? f n exte [ nal fi]e with wtich tte file variable is to be associated 
This parameter, which may be a device or file name specification, must be a string 
type and may be either a literal string or a variable. ® 

default-values 

1 S J ll Z 0f a 8trin f type providing default values for any file fields not provided in 
the file name, including default file options. 

fi/e-status 

is an integer variable that is primarily used to return a special status code if the 
cannot be opened; this code allows a program to recover from an otherwise fa- 

allocated 1 Parameter also may be used t0 determine the number of blocks 

allocated to a file or to specify the number of blocks to allocated to a new ^ 
These uses are explained in detail below 

rewrite(FI, . '/seek'); 

s ee “Itandom Access to Data Files” for details on the /seek switch and see “I/O Control «„•* v . 
m the Programmer’s Guide for details on the use of other file s^thes 7 ***** 

The optional parameters may be used to redirect the stanHorH ci„„ t 

The next' 6 516 T“ h“ aSS ° Ciated With the standard terminal ^put or ou^utd^frespectively 7 
The next example redirects output from the terminal to the line printer. respectively. 

rewrite(output, 1 LP: 1 ); 

reset(infile f Filename 1 1 st 1 , - ,. 

if status - i +>, TT n ’ 1 ” ' statu s) f default extension of .LST 

~ response Meded 10 er,or stata * 
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Or you may use the predefined functions in the support library to initiate run-time diagnostics. 
These functions check the status of the fourth parameter and respond accordingly. See "Run-Time 
Error Reporting* in the Programmer’s Guide. Either way, you must check the value of the fourth 
parameter each time you use it; otherwise, the program continues but may act unpredictably. 

If the file is successfully opened, the fourth parameter returns the number of blocks allocated to the 
file. In addition, the fourth parameter may be used with rewrite to specify the number of blocks 
to be initially allocated to the file. When the size of the file is known in advance, this specification 
allows efficient space allocation by the operating system. If the file does not actually occupy the 
number of blocks specified, however, the operating system will truncate the file to the number of 
blocks needed. In turn, the value of the fourth parameter may be checked after a rewrite to be 
certain that the file was allocated the number of blocks you wished. 

Two values for the fourth parameter have special meaning on RT-11. A value of 0 indicates that the 
file should be allocated one-half of the largest contiguous space. A value of -1 specifies that you want 
all contiguous space allocated to the file. In both cases, the value upon return is the amount of space 
actually given to the file or is -1 if an error occurred in opening the file. If the fourth parameter is 
absent, the file size is determined by the operating system and expands dynamically. Examples: 

reset (f, 1 test 1 , 1 . pas 1 # size) ; - assumes default of .PAS 

writeln(size) ; -returns the size of the file in blocks 

size := 64; 

rewrite(output, outstr, 1 . lis 1 , size) ; -file initially allocated 64 blocks 


‘Close’ Procedure 

The close predefined procedure indicates that its file parameter is no longer in use; close will 
reclaim buffer memory. Further access to the file is prohibited until reset or rewrite is used. 
Files are automatically closed upon program termination, or when they appear in another reset or 
rewrite; close allows files to be closed manually when it is necessary to reclaim buffer space before 
then. In addition, a file variable local to a procedure or function is automatically closed when that 
function or procedure terminates. See the sample program Alphas in the next section for implicit 
uses of close. 

Random Access to Data Files (‘Seek’) 

Pascal-2 includes the seek predefined procedure to allow direct access (random access) to data 
files opened with the /seek file control switch. The seek procedure requires two parameters: a file 
variable of the file to be accessed, declared as a file of char or other file type (but not of type 
text); and an integer record number (records in the file are numbered sequentially beginning with 
1). After the seek call, the specified record is available in the file buffer if it exists; otherwise eof is 
set to indicate that the record is not available. 

Seek also enables both reading and writing on the same file for in-place record updates. Put is 
required if the file buffer variable is to be written to the file. Get and put may be mixed with seek 
for sequential access, because the internal record pointer is updated after each get and put. See the 
example following for the use of put and seek. 

After the file pointer is positioned by seek, both read and write as well as get and put may be 
performed. Read and write transfer data between the user variable and the file; get and put transfer 
data between the file buffer variable and the file. The following sequences may be used for direct 
access. 

seek(F,I); read(F,V); { read record I into V > 
seek(F,I); write(F,V); { write record I from V > 
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Example: 

program Alphas; 
rar 

C: char; 

F: file of char; 


begin 

rewrite(F, •alpha.txt 1 ); { 

for C := ‘a* to 'z' do 

write(F, C); { 

reset(F, 'alpha.txt/seek•); { 

seekCF. 4); { 

writeln(F-); { 

F- := 'z«; { 

put(F); { 

end. -—- 


open F for writing > 

write letters of the alphabet to F > 
close and reopen F for seeking } 
read record containing ‘d 1 > 
write a , d l to output > 

'd* becomes 'z* > 

write 'z' to F in place of •d* > 

-F closed automatically 


As the program shows, the /seek file control switch must be used with reset or rewrite if the 
seek procedure is to be used to access the file. See “I/O Control Switches” in the Programmer’s 
Guide for details. 


At run-time, the character ‘d’ is written to the terminal. After program termination the file 
ALPHA.TXT contains: 

abczefghij klmnopqrstuvwxyz -z takes the place of d 

Seek does not work on text files. For simulated random access on text files, you must use the getpos 
and setpos external procedures. See “Random Access to ‘Text’ Files” in the Programmer’s Guide. 


String Input ('Read’ and ‘Readln’) 

A character string is a packed array [1. .n] of char. The read and readln procedures may be 
used to read variables of string types. Characters are read until the variable is filled. If eoln becomes 
true, the remainder of the string is filled with spaces. See “The Dynamic String Package” in the 
Utilities Guide for more sophisticated ways to read and manipulate strings. 


‘Break’ Procedure 

For efficiency, Pascal-2 buffers transmitted output data. Break(F) forces the actual transmission 
of data from a partially filled buffer of file F. This can be useful with interactive terminals or to 
guarantee actual transmission of data to a shared disk file. 

Octal Output 

In an integer write procedure call, a negative field-width specification will represent characters in 
octal (base 8). 

Example: 

write(I:-5); { Display octal value of I > 
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Real Number Formatting 

If the second formatting field is negative, a real number is printed in scientific notation. The number 
of digits to the right of the decimal point is the number specified in the second field. (The standard 
allows you to specify an integer constant or an integer expression in either formatting field.) 

For example, 

writ#(R:20:-6); 

prints R with one digit to the left of the decimal point and five digits to the right, followed by an 
upper-case E, a sign character or and two digits signifying the exponent. The entire number 
is right-justified in a 20-character field. 

If R has the value —367.2, the statement vritolaCR*’ ,R: 20:-6) prints: 

R> -3.67200E*02 
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Low-Level Interface 

This section describes Pascal-2 extensions that are useful to programmers needing access to machine- 
dependent characteristics. 

Boolean Operator* on Integer 

The boolean operators and, or, and not may be applied to operands of integer or integer subrange 
type. The not operator is always applied first. The operators produce a 15-bit result of integer 
type. 


Nondecimal Integer Constanta 

Nondecimal integer constants may be specified in two forms of notation. In the preferred form, the 
nondecimal value is written as shown: 

nondecimat-integer-constnnt =* digit-sequence “T hexadecimal-digit-sequence . 

where digit-sequence is the radix, or base, of the number, in the range 2.. 16. The number following 
the cross-hatch character ‘#’ is any number represented in base digit-sequence notation. The •#’ 
symbol is required regardless of base. For example, the decimal value 255 is written M377 for base 
8 and 16*FF for base 16. Also, the redundant form 10*255 is valid for the decimal value 255. 

Pascal-2 supports another form of notation as a special case. Octal (base 8) notation for integer 
constants is signified by the suffix “B" (upper or lower case), so that 377B and 377b are the same 
value as 255 decimal. 


Extended-Rang* Arithmetic 

The normal range of Integer variables in Pascal-2 is -32767..32767, but you also may declare 
Integer types in the extended range of 0..65535. A variable with an upper limit greater than 32767 
is called an extended-range or “unsigned” variable. Normal arithmetic operations, with the exception 
of division and modulo, are performed on extended-range variables. Comparisons and division are 
signed. An integer value may be assigned to an extended value, being converted as a bit pattern. If 
the value being assigned is negative, the error is not trapped at run-time, since there is no way for 
the compiler to tell the difference between a negative value and an extended-range value. The same 
sort of implicit transformation is true when an extended value is assigned to an integer variable. No 
conversion is done for constants. 

The following sample program illustrates the way Pascal-2 handles extended-range numbers. Within 
the repeat util statement, the program reads an integer then prints it as an unsigned integer 
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and as a signed integer. The external procedure Uvrlte is provided in the section on “Unsigned 
Integer Conversion” in the Programmer’s Guide. 

prograa BlgfunberTest; 
type 

Unsigned 3 0..656SS; 
var 

Blglanber: Unsigned; 

procedure UvrlteCZ; Unsigned; Vidth: integer); 
external; { procedure to write an unsigned Integer to output > 

begin < BiglunberTest ) 
repeat 

vrlteCEnter aa integer: '); 

readln(BlgBnaber); 

vrlteC Unsigned. BIGBUMBEB > •); 

write (BlgBnaber, 1); write In; 

vritelnC Signed. BIGBUMBEB 3 '. BlgBnaber:1); 

vrlteln; 

until false { forever ); 
end. { BlgBnaberTest ) 

The program is executed, producing the following results. As mentioned earlier, the allowable range 
of values for the integer BlgBnaber is —32767..32767. The final entry — in fact, any value outside the 
range of possible integers — is an invalid value for an integer, halting the program with a walkback 
(unless valkback is disabled). 

Eater aa integer: -1 
Unsigned, BIGBUMBEB 3 65535 
Signed. BIGBUMBEB 3 -1 

Enter an Integer: -32767 
Unsigned. BIGBUMBEB * 32760 
Signed. BIGBUMBEB 3 -32767 

Enter an integer: 32767 
Unsigned. BIGBUMBEB 3 32767 
Signed. BIGBUMBEB 3 32767 

Eater aa integer: -5555 
Unsigned. BIGBUMBEB 3 59981 
Signed. BIGBUMBEB 3 -5555 

Eater aa integer: 5555 
Unsigned. BIGBUMBEB 3 5555 
Signed. BIGBUMBEB 3 6555 

Eater an integer: 65635 

PASCAL—I/O error at nser PC 3 10S0B 
Illegal value for integer 

Error occurred at line 16 in prograa bigauabertest 
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See “Unsigned Integer Conversion” in the Programmer’s Guide for Pascal routines that perform 
extended-range arithmetic and extended-range ontpnt. 

“Origin" Declaration 

A variable can be declared to have a particular address in the I/O page or system area with the 
following syntax: 

vaiHfec/aration =» var-e/ement var-eiement}”:” type . 

var-eiement =* identifier (“origin” constant]. 

The constant in the above syntax must have an integer value. A variable so specified has the address 
given by the integer following origin. This must be in the system space 0. .7778 or in the I/O page 
1600008..177777B. 

The following example demonstrates the use of origin, plus the use of the ref and also functions. 
See “Ref Function” and “Size and Bitsize Functions” for more details on those routines. The example 
controls a mythical device. The procedure ReadData sets up the device’s control registers and initiates 
a transfer from the device into the task’s memory. This example is specific to a machine without 
memory management hardware, such as a small RT-11 system. 

progran Device; { example of device control > 

const 

Ready * 3008; { ready flag > 

ReadBuffer * 1; < read data coaaaad > 

type 

Buffer * packed array [1..100] of char; 

BufferPolnter * “Buffer; 

var 

StatusReglster 
CoatrolReglster 
Bufferiddrese 
ByteCouat 
Data: Buffer; 


origin 177316B: Integer; 
origin 177314B: Integer; 
origin 177312B: Buffer.Pointer; 
origin 177310B: Integer; 

{ holds data froa device > 


procedure ReadData; 
begin { ReadData > 

Bufferiddrese :* ref(Data); { Address for DMA xfer > 

ByteCouat : = size(Buffer); { size of buffer > 

CoatrolReglster := ReadBuffer; { start transfer > 

{ Bait for device to coaplete transfer > 
while (StatusReglster and Ready) * 0 do (valt>; 
end; < ReadData > 

begin < Device ) 

ReadData; 

ead. ( Device > 
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‘Ref* Function 

The ref function, with a variable argument of type T, produces a pointer to that variable with result 
type *T (pointer to T). The dispose routine cannot always detect attempts to dispose of a pointer 
generated with this function, and you should not try to do so. 

See the example under “Origin Declaration" and under “Loophole Function* for uses of ref. 


‘Size’ and ‘Bitsize’ Functions 

Two functions, size and bitsize, give the programmer information on the space allocated for 
values of different types. The functions have a single argument, a type identifier. 

The function size returns the number of bytes that would be allocated for an object of that type 
by normal variable allocation. The function bitsize returns the number of bits that would be 
allocated for an object of that type as a component of a packed record. This is the actual number, 
of bits required to hold the value. 

For example, suppose you had declared a type Subrange = 0.. 15 and called the functions size and 
bitsize, as in the following example program. The results tell you that two bytes and four bits are 
allocated for the argument in question. 

program SizeBitsize; 
type 

Subrange = 0..15; 
begin 

writeln(size(Subrange)); 
writeln (bitsize (Subrange)); 
end. 

The program yields these results: 

2 
4 

These functions are primarily useful when you are interfacing with the operating system or with 
hardware functions. 

See “Origin Declaration” for another example of size. 


2 bytes are allocated 
- 4 bits are allocated 


‘Loophole’ Function 

The loophole function, by providing a controlled escape from Pascal type rules, allows you to assign 
variables of one type to a variable of a different type. One use, shown in the DumpMemory example 
following, is to convert a pointer type to an integer type, perhaps to perform pointer arithmetic. 
The Pascal-2 Debugger, which examines program data, uses loophole to look at the stack and 
compute the values of pointers. 

The invocation of loophole requires two parameters: 

loophole (.returned-type, expression-to-convert) ; 

where returned-type is an identifier specifying the data type to be returned by loophole, and 
expression-to-convert is an expression of a “compatible” type that is converted to returned-type. In 
this context two types are considered compatible only if they require the same amount of storage 
(see “Storage Allocation” in the Programmer’s Guide), or if they are both non-real scalar types. 
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The result of the loophole function is the bit pattern of the second argument, expressed as a value 
of the type specified in the first argument. 

The following program illustrates the compatibility rules that govern the use of loophole. The 
program coerces a real number to an equivalent two-word array of integers representing the two 
words used to store the real value, then coerces the two-word array back into a real number. The 
program then coerces an integer in the range 0..4 to a scalar of type Car, then coerces the scalar 
back to an integer. The loophole (integer, S) is equivalent to the statement I := ord(S). 


program Coerce; 
type 

Realequiv = array [0..1] of integer; 

Car = (Buick, VI, D at sun, Chevy, Biff); { scalar type > 

var 

Re: Realequiv; 

R: real; 

S: Car; { scalar > 

I: integer; 

begin { Coerce > 

write('Enter a Real number: '); 
readln(R); 

Re := loophole(Realequiv, R); < coerces real into 2-wd array of integers > 
writeln('Re = •, Re[O]:-0, Re[l]:-0); { 2-wd array printed in octal > 

R := loophole(Real, Re); { coerces 2-wd array back to real > 
writeIn('R = 1 , R) ; 

write('Enter an integer in range 0..4: '); 
readln(I); 

S := loophole(Car, I); { coerces integer to scalar > 

write( 1 S = ; 

case S of < writes the scalar value > 

Buick: writeIn('Buick 1 ); 

VI: writelnOVW'); 

Datsun: write In ('Datsun 1 ) ; 

Chevy: write In ('Chevy 1 ) ; 

BMI: writeln('BOT'); 
end; { case > 

I := loophole(integer, S); { coerces scalar back to integer } 
writelnOl =', I); 
end. { Coerce > 

When executed, the program yields these results: 

Enter a Real number: 21567.9 

Re = 43650 77715 - octal representation of real number (2 words) 

R = 2.156790E+04 

Enter an integer in range 0..4: 2 

S = Datsun 

I = 2 

The only other method of type coercion is to declare a record with variants, using the fact that the 
compiler overlays storage for different variants. This method makes the same kind of assumptions 
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as the loophole function about the compiler’s allocation of memory and machine’s architecture. 
However, the loophole function has several advantages over variant records: 

• No assumption need be made about field allocation in a variant record. 

• The compiler checks that the different types are the same size. 

• The bypassing of type checking rules is clearly marked (the compiler will flag loophole if the 
$standard switch is set). Also, if the code is used with a compiler other than Pascal-2, that 
compiler should mark loophole as an error, and appropriate changes can be made to the code. 
With variant records, the code might compile but not work. 

The following sample program uses the loophole function to perform arithmetic on pointers so that 
a block of the task’s memory can be printed. 

program MDump; 
type 

ford = 0..65535; 

procedure DumpMemory (Start, Finish: fnrd); 
type 

Pointer = *integer; 
var 

P: Pointer; 

begin { Dump Memory > 

P := loophole(Pointer, Start); 

while loophole(lord, P) <= Finish do begin 

writeIn(loophole(integer, P): -6, •: 1 , P~: -6); 

P := loophole(Pointer, loophole(ford, P) +2); 
end; 

end; { Dump Memory > 

begin { MDump > 

DumpMemory(1210B, 1220B); 
end. { MDump > 

The program yields these results: 

1210: 6 
1212: 101032 
1214: 10546 

1216: 12746 

1220: 177772 

The next example shows a method to print the address of a variable of any type. The program creates 
a pointer to the variable, coerces the pointer type into the type used in procedure friteAddress, 
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and prints out the address. 

program PrintAddress; 

type 

U.Pointer = 0..65535; { unsigned integers > 

▼ar 

C: char; 

R: real; 

Cptr: "char; 

Uptr: U.Pointer; 

P.Integer: "integer; 

procedure TriteAddressCA: U_Pointer); 
begin 

vritelnfA: -7); -{octal value of address} 
end; 

begin { PrintAddress } 

C := 'a'; R := 3.54; 

Cptr := ref(C); { create pointer to char } 

Uptr := loophole(U.Pointer, Cptr); < coerce pointer into an address } 

IriteAddress(Uptr); { print out address } 

IriteAddress(loophole(U.Pointer, ref(R))); { print pointer to real } 
new(P_Integer); 

P.Integer" := 3103; 

UriteAddress(loophole(U_Pointer, P.Integer)); {print pointer to integer } 
end. { PrintAddress } 

The program yields these results: 

11106 

11110 

31436 
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Non-Standard Language Elements 


Program Parameters 

According to the standard, parameters supplied in the program header indicate external hies. 
Further, the input and output files must appear in the program header if they are used in the 
program. The input and output files are always defined at the global level and may not be redeclared 
at that level. 

With Pascal-2, the program header is not required, and any program parameters are entirely ignored 
(see “Program Heading” under “Syntax Extensions*). External files are referenced instead by an 
extended form of reset and rewrite using a second parameter (a string) giving the external filename 
(see “External File Access” under “I/O Support Extensions”). 


Directives 

The draft standard treats standard directives such as forward as neither an identifier nor a reserved 
word. Pascal-2 treats the directives forward, external, nonpascal as reserved words. An identifier 
cannot have the same name as one of these directives. 

‘Mod’ of Negative Numbers 

The draft standard states that the divisor must be positive and the operator mod must have a 
non-negative result. That is, 

0 < /mod / < / 


The Pascal-2 compiler generates a divide instruction that gives a negative result if I is negative. 
The standard result can be generated by: 

Result := I mod J; 

if Result < 0 then Result := Result ♦ J; 

‘Eof’ Not Accurate For Binary Files 

A RT-11 file structure is a sequence of 512-byte blocks. A file containing short records may actually 
end in the middle of a block, but no information is available as to the end of valid data in the last 
block, so the eof standard function should not be relied upon as accurate. Another method, such 
as a sentinel record or a record count, should be used to indicate the end of usable data. 

Eof is correctly indicated for text files. 


Structured Types as Function Return Values 

Under the standard, functions can return simple data types only (e.g., integer, real, char). With 
Pascal-2, functions may return structured data types such as record, array and set types in 
addition to simple types. For example, the function KeySort, of structured type, is declared as: 

function KeySort(Key: KeyType) : StructType ; 
where StructType is the structured data type of the return value of KeySort. 


3-25 






Pascal-2 V2.1/RT-11 Language Specification 


Additional Predefined Functions and Procedures 

The Pascal-2 system includes predefined functions and procedures, as allowed by the draft standard. 
Most of these are grouped according to function in other sections in this guide. This section describes 
miscellaneous predefined functions and procedures not otherwise described. 

Because these procedures and functions are known to the compiler, they need not be declared in 
the program. The only exception is timestamp, which is functionally similar to the other procedures 
and functions but is not yet predefined, timestamp will be predefined in future releases but for now 
must be declared as an external procedure. 


Procedure ‘Delete’ 

The predefined delete procedure allows the deletion of a single file that is opened in a Pascal 
program. Delete accepts one argument, the file variable of the file to be deleted. Invoke the procedure 
with a statement similar to the following: 

delete(F); 

Internally, this procedure closes and deletes the file specified by the argument. Your program should 
not close the file (using close) before invoking the delete procedure. The run-time error message 
“can’t delete file” results if the file cannot be deleted for some reason. See the example following the 
discussion of the rename procedure. 

Procedure ‘Rename’ 

The predefined procedure rename allows the renaming of an open file, from within a Pascal program. 
Rename accepts two arguments. The first argument passed to rename must be the file variable of the 
original file name. The second argument must be the file name of the new file. Invoke the procedure 
with a statement similar to the following. 

rename (F, 1 newf il. txt 1 ) ; -renames F to NEWFIL.TXT 

or: 

NewF := ‘newlil.txt 1 ; 

rename (F, NewF) ; --renames F to NEWFIL .TXT 

The second argument may be a constant, a variable, or a literal string. The second argument must 
contain at least one field. If any fields are omitted from the second argument, the omitted field takes 
the corresponding value from the original file name. For example, to change the extension only, use 
a statement similar to this: 

rename(F, 1 .mac') ; -file name is the same; .MAC is the new extension 

The original file must be open (via reset) before rename may be called on the file. The renamed file 
is automatically closed upon completion of the operation. 

The following program illustrates the use of the delete and rename predefined procedures. The 
program reads a file of weather observations and weeds out duplicate reports, or “dupes.” The 


3-26 









Additional Predefined Functions and Procedures 


good reports are written to a file, which is later renamed. The file of duplicate reports is then 
deleted. 

program Dupes; 
const 

Climat.File = •dimat.dat*; 
var 

Data_File: text; { file of weather observations } 

Dupe_File: text; { file of duplicate reports > 

Good.File: text; < file of good reports minus duplicates > 

procedure Discard.Dupes(var F, G. H: text); 

external; 

{ This procedure sorts F, a file of weather observations, 
saving good reports on file G and discarding duplicate 
reports on file H. > 

begin { Dupes > 

reset(Data.File, 1 weax.dat'); 
rewrite(Dupe.File, ‘dupe.top 1 ); 
rewrite(Good.File, 'good.dat*); 

Discard_Dupes(Data_File, Good.File, Dupe.File); { Teed out the dupes > 
rename (Good_File, Climat.File) ; — renames GOOD.DAT to CLIMAT.DAT 

delete (Dupe.File) ; - deletes the file of duplicates 

end. -C Dupes > 


Predefined Function ‘Time’ 

The predefined function time takes no parameters and returns a real value corresponding to the 
current time of day. The value time is represented in hours after midnight, so that 9:30 a.m. is 9.50 
and 1:45 p.m. is 13.75. The resolution of time depends on the operating system, but all operating 
systems provide a resolution of at least one second. 

The value returned could be used in header information. (If you wanted the date as well as the 
time, you would use timestamp, described below.) Or you could call time at the beginning and end 
of a text-processing program and write a procedure that calculates the number of lines processed 
per minute, based on the difference in value returned. Or, because it generates a real number, time 
may be used to “seed* a pseudo-random number generator. The example below returns uses time 
to return the time of day. Chr(7) is the “bell” character. 

program friteTime; 
var 

Hrs, Mins: integer; 

AmPm: packed array[1..2] of char; 
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begin { IriteTime > 


Mins := Round (time * 60); 

Hrs := Mins div 60; 

Mins := Mins mod 60; 
if (Hrs < 12) then AmPm := 1 AM' 
else if (Hrs = 12) and (Mins = 0) 
then AmPm := 'M 1 else AmPm : = 'PM 1 ; 
write('At the tone the time will be: '); 
write(((Hrs+ll) mod 12 + 1):2); 
write(':', Mins div 10:1, Mins mod 10:1, AmPm:3); 
writeln(Chr(7)); 
end. { IriteTime > 

Running the program yields these results: 

At the tone the time will be: 11:37 AM <bttp> 

Procedure ‘TimeStamp* 

The timestamp procedure provides a way to obtain the date and time from within a Pascal program. 
Date and time are obtained simultaneously so that they are consistent, even close to midnight. 

Timestamp is included in the Pascal-2 library, but the name is not pre-declared by the compiler. 
You must include a definition similar to: 

procedure Timestamp(var day, month, year, < date > 


hour, min, sec: integer ); 


{ time > 


external; 


The following program prints the date and time using timestamp. 

program DateTime(output); 
var 


Day, Month, Year: Integer; { date data > 

Hour, Minute, Second: Integer; { time data > 



{ date > 
{ time > 


procedure PrintTwo(N: Integer); 

begin { Print a number on the output file with two digits, including 
leading zeros if needed. The number must be 99 or less > 
write(output, N div 10: 1, N mod 10: 1); 
end; { PrintTwo > 
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begin { DateTime > 

Timestamp(Day, Month, Year, Hour, Minute, Second); 
PrintTwo(Day); 
case Month of 

1: write(output, 

2: write(output, 

3: write(output, 

4: write(output, 

5: write(output, 

6: write(output, 

7: write(output, 

8: write(output, 

9: write(output, 

10: write(output, 

11: write(output, 

12: write(output, 
end; 

write(output. Year: 4, 

PrintTwo(Hour); 
write(output, 1 : 1 ); 

Print Two (Minute); 
write(output, ': 1 ); 

PrintTwo(Second); 
writeIn(output); 
end. < DateTime > 

The results of the program are: 

16-Jun-1983 14:28:31 


'-Jan-') 
1 -Feb- 1 ) 
'-Mar-') 
•-Apr- 1 ) 
1 -May- 1 ) 
*-Jun-') 
*-Jul-‘) 
1 -Aug- 1 ) 
‘-Sep- 1 ) 
‘-Oct- 1 ) 
‘-Not- 1 ) 
•-Dec-*) 
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Error Handling 

This section describes the errors defined by the Pascal standard and Pascal-2 *s handling of them. 

Detected Errors 

Pascal-2 detects the following errors in all cases: 

1. Ln or sqrt has a negative argument. 

2. The integer value returned by trunc or round lies outside the range -maxint. . maxint. 

3. Integer or real division by zero. 

4. The result of a real operation cannot be expressed because of limitations in the floating-point 
format. 

5. No label matches the value of the case index in a case statement. 

6. The characters being read from a text file do not represent a legal value for the type of variable 
being read. 

7. An attempt to call get, read, or readln when the file has not been reset or when eof is true 
for that fiie. 

8. An attempt to call put, write, writeln, or page when the file has not been rewritten or when 
eof is false for that file. 

9. A call to put when the file variable is undefined. 

Pascal-2 detects the following errors under these conditions: 

1. The value assigned to a variable or value parameter is not within the declared range of values 
for that variable. Detected when the $rangechsck compiler switch is enabled. (Default.) Not 
detected when a negative value is assigned to an extended-range variable. See “Extended-Range 
Arithmetic” for more details. 

2. An index expression for an array access is outside the range of the corresponding index type. 
Detected when the Sindexcheck switch is enabled. (Default.) 

3. A reference through a pointer with a nil or undefined value. Reference through a nil pointer is 
detected when the $pointercheck switch is enabled. (Default.) Reference through an undefined 
value is not detected, although many cases will be detected at compile time. 

4. In a for statement, the initial and final values are not within the range of the controlled variable 
when the initial value is assigned to the controlled variable. Detected when the Srangecheck 
switch is enabled. (Default.) 

5. The calling of dispose with a nil or undefined parameter. Detected if the parameter is nil; 
detected if the parameter was made undefined by a previous dispose. The dispose of an 
undefined pointer is sometimes detected. 

6. The result of the sqr function is out of range. Detected if the argument type is real; undetected 
if the argument type is integer. 

7. The result of chr(x) is not within the character set. Detected only if a value is assigned to a 
variable or is passed as a parameter. 

8. The result of succ or pred lies outside the range of the type. Detected only if the value then is 
assigned to a variable or is passed as a parameter. 

9. A mod with the right-hand side less than or equal to zero. Detected if the value is zero; otherwise 
not. 
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10. Reference to an undefined variable. Undetected in general. However, many simple cases are 
detected at compile time. 

11. A return from a function without a value being assigned to the function. Undetected in general. 
However, many simple cases are detected at compile time. 

12. An attempt to call put on a file that was opened with rosnfe. Detected except for a file with 
the /seek file control switch specified when the file was opened. 


Undetected Errors 

Pascal-2 does not detect the following errors: 

1. A set value assigned to a set variable or value parameter contains members not in the range of 
the base type of the set variable. 

2. An access to a field in a variant record that is not selected by the current value of the tag-field. 

3. A dispose of a variable allocated on the heap while there is an active reference to that variable 
as a variable parameter or in a vlth statement. 

4. A change in the value of a file variable by a get or put while there is an active reference to 
that variable as a variable parameter or is a with statement. 

5. Accessing of a variable allocated with usv(p, ci.c„) as as entire variable, is an assignment 

or as a parameter. 

6. Calling of dlsposs(p) when the value of p* was created with us *(p, c,,..., c„), or calling of 
dispose (p, ci,.... c„) with a variable created with lev and a different set of tag values. 

7. The result of an integer operation is incorrect because of overflow. 

8. The value of a format expression to a vrlts statement is less than 1. Undetected (used in a 
language extension). 
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Appendix A: Predefined Identifiers 


Constanta 

Falsa 

Maxlat 

Iran 

Types 

Booleaa 

Ckar 

Iatagar 

Baal 

Text 

Variables 

Iapat 

Oatpat 


Functions 

ibs 

irctaa 

Bltslza* 

Ckr 

Cos 

Eof 

Eola 

Exp 

Ioerror* 

Iostatas* 

La 

Loophole* 

Odd 

Ord 

Prad 

Bad* 

Boaad 

Sla 

Sine* 

Sqr 

Sqrt 

Sace 

Tins* 

Traae 


Procedures 

Break* 

Close* 

Delete* 

Dispose 

Get 

lew 

loloerror* 

Pack 

Face 

Fat 

Bead 

Beadla 

Beaans* 

Beset 

Bewrlte 

Seek* 

Unpack 

Vrlte 

Writela 


Appendix B: Reserved Words 


lad 

Faactloa 

Packed 

irray 

Goto 

Procedare 

Begla 

If 

Prograa 

Case 

In 

Record 

Const 

Label 

Bepeat 

Dir 

Mod 

Set 

Do 

111 

Thea 

Dovato 

loapascal* 

To 

Else 

lot 

TJP* 

End 

Of 

Uatil 

External* 

Or 

Tar 

File 

Origin* 

With 

For 

Forward 

Otherwise* 

While 


* Items marked with the asterisk are extensions of standard Pascal. 


Updated Junior 1686 
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Appendix C: Pascal—2 Syntax 
Pascal—2 Syntax Diagrams 


program. 







pi aiu licauuig p ~ f ueciarai/ions 

1 

DIOCK • )—7 


O 


( ^—'i 

program headmg —( program )-| identifier}-^—(T)-^—I identifieiY-^HTVj^-(YY-->~ 


block. 


<Z> 



declarations - ( begin ) -^— statement end 
declarations labile 1_X 


labels ^ 


consts —y — \ types 


1 


procedure 


function 


jure —r 
inn —^ 


j L ypes vars rj 


labels. 


-(label)- 


■©- 


L L digitH—^ 


<I>^ 


consts- ( const) identifier - ( = } - constant ^ > - 


tyP 65 - ( type ) -^- | identifier - type -(T)—^ 


vars— 


constant 


o 


identifier —^— ( origin ) - constant -j —type 


T 



structure component. 


constant 


y 


1 


o 


structure component 


1 
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number Cf ~ 


digit 


I 


digit 


jyCD—ni^jj 




- ( # ) — hex digit 

-CD- 



■O 


variant. 


constant 


(rKD-^- f field list I f— 


7 


procedure. 


procedure heading ^—[ block 


2_J \ block — j — j — 
G directive G 


^—( procedure )-| identifier |—(7^)--( block 


<T>^ 


function. 


function beading h (T)~^\—j block 


— D1QCK —7 

n directive G 


^— ( function ) - [ identifier | ~(7’)H block 


<I>^ 
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function heading 



-Q- 


— ( function identifier — formal parameter 


¥<I>j- H 


-(T)- | type identifier 


directive-y (forward > - ^-> - 

^ external 
\ nonpascal y 



conformant array schema 

- ( packed array ) —(J)— index type spec —Q^)— (~of) — type 

—CD— 


7 ->" 


array 



index type spec 





type 


conformant array schema 


7 


index type spec-1 bound identifier (-(fTT)-! bound identifier |-(T)-| type 
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ex P ression - Simple expression} - 



Sj~r 

<<E> 

<<>> 


simple expression 


inn k 


simple expression. 


— 




term 


factor 



unsigned constant. 


number 


character string 


identifier 
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statement 7(— | — unlabeled statement 


T 


unlabeled statement 


K begin — statement ~^~ (~end 

Boolean expression j-{7KeiP)-| statement \-^K elge )~l statement 


variable 


expression 




— o — 

\ 

r—®- 

\ 


expression 

. JJ 


<D 


J 


rin 


<I> 


t 


7 


case ) - [ expression" -{~oT)- 


<e>- 


rz®ZT) 

>-■ ^ v constant 


statement 


otherwise^- statement 



end ) —' 


while ^ Boolean expression^ do ) ~ j statement 

-CD- 


^ (repeat — statement — until^ )- Boolean expression 


^for)- |~variable expression k - (to) - J expressionV(db) ~ | statement 


downto 


7 


o 


with ) —^— record variable —do )~ statement 


S ^ goto ) —^— [ digit 


I Hicrit. —^ 
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Extended Backus-Naup Form 

The notation used for describing syntax in this guide is a variant of the Backus-Naur Form (BNF) 
originally developed to describe the syntax of Algol 60. This particular variant was proposed by 
Niklaus Wirth (“What Can We Do About the Unnecessary Divergence of Notations for Syntactic 
Definitions?", Communications of the ACM , November 1977, vol. 20, number 11). 

A “terminal symbol" is a symbol that actually appears in the language itself. Examples of terminal 
symbols in Pascal are: 

begin + >= 

Terminal symbols are written in quotes, e.g.: “terminal". 

Some terminal symbols are not easily expressed in this way, and these may be represented by 
comments contained in angle brackets < >. For example: 

<any printable character> 

A “nonterminal symbol" is used in the description of the language but does not actually appear 
in the text of the language. That is, it is used to talk about the language. A nonterminal symbol 
will stand for some sequence of terminal or nonterminal symbols. Nonterminal symbols are written 
without quotes. For example: 

identifier, interface-part 

A “production" is a rule specifying which terminal and nonterminal symbols make up another 
nonterminal symbol. A production is written: 

left-hand-side = right-hand-side . 

The left-hand-side is a nonterminal symbol; the right-hand-side is some combination of terminal and 
nonterminal symbols. A production indicates that the left-hand-side is made up of the symbols on 
the right-hand-side . A production is terminated with a period. 

Within a right-hand-side, the following operators may occur: 

(blank) indicates that the two symbols are concatenated. For example: 

Ihs = “a" “b" “c" . 

indicates that Ihs consists of the string abc. 

(vertical bar) indicates that the two symbols are alternatives. Concatenation is performed 
before alternation. For example: 

Ihs = “ab" | “cd" . 

indicates that Ihs consists of one of the strings ab, cd. 

[ ] (brackets) indicate that the enclosed symbols are optional. For example: 

Ihs = “a" [“be"] “d" . 

indicates that Ihs consists of one of the strings abed, ad. 

{} (braces) indicate that the enclosed symbols are repeated zero or more times. For example: 
7hs= “a" {“b"}“c" . 
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indicates that ihs consists of any of ac, abc, abbc, abbbc, .... 

( ) (parentheses) are used for grouping as they are in mathematics. 

We can now use this notation to describe itself as an example. The productions for letter, digit and 
character are not given here but are obvious. 

syntax = {production }. 

production a nonterminal-symbol “a" expression . 
expression a term {“|” term }. 
term = factor {factor }. 

factor a nonterminal-symbol | terminal-symbol | “(" expression “)” 

| “[” expression “j" | *{’ expression “}” . 

terminal-symbol a character {character }“•” | <a ny comment in angle brackets> . 
nonterminal-symbol a fetter {fetter | digit | *-’ }. 

Pascal-3 Lexlcsd Description 

This set of productions defines the lexical representation of Pascal-2. 

Productions that differ from the standard are marked with an asterisk (*). 

The case of any alphabetic character is insignificant except in a character-string. Lower-case is used 
in this description. 

1. * letter a “a" | “b” | “c* | “d” | “e” | *f" | “g” | “h” |“i” 

| “j” I r I “1" I *»" I I “o" I “p” I “q” I “r" 

| “a" | “t” | “u” | V | V | Y | f | “*” | “I* . 

2. digit a “0" | “I" | “2" | “3" | “4* | “5- | “8" | “7" | T | “9" . 

3. * octal-digit = “0" | “1" | “2* | ‘J’ | “4" | “5" | “«" | “7” . 

4. * hexadecimal-digit — digit | “a” | “b* | “e” | “d” | “e” | “f" . 

5. special-symbol a | | *s" | “/* | “=* | “<" | “>" | “(” | “)” | “(.’ | “.)” 

i 1 v i 1 v i — i i r i r i “<>” i 1 •>-• 

j | | word-symbol . 

6. * word-symbol a “and” | “array* | “begin” | “case” | “coast” | “div” | “do” 

| “dovnto” | “else” | “end” | “file” | “for” | “function” | “goto” | “if” 
j “in” | “label” | “m»d* | “ail” | “not” | “of" | “or” | “origin” | “otherwise” 
j “packed” | “procedure” | “program" | “record" | “repeat” | “set” | “then” 
j “to” | “type” | “until" | “tut” | “while* | “with” . 

7* identifier a letter {letter | digit | “_* }. 

8. bound-identifier a identifier . 

9. * directive a “forward” | “external” | “nonpaacal” . 

10. digit-sequence a digit {digit }. 

11. * unsigned-integer a [ digit-sequence “•* ] hexadecimal-digit-sequence . 

12. unsigned-real a ( unsigned-integer “.” digit-sequence ( “E” scale-factor | ) 

fi (unsigned-integer “E” scale-factor). 


s 
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13. * non decimal-integer » digit-sequence “#” 

( hexadecimal-digit { hexadecimal-digit }| octal-number ). 

14. * octal-number «■ octal-digit { octal-digit }“b" . 

15. * unsigned-number ■■ unsigned-integer | unsigned-real | octal-number . 

16. scale-factor “ signed-integer . 

17. sign =■ | . 

18. signed-integer *» [ sign ] unsigned-integer; 

19. signed-renl ” ( sign ] unsigned-rent; 

20. * signed-number ■ signed-integer | signed-renl | | sign J octal-number . 

21. Inbel » unsigned-integer; 

22. cbnrncter-string string-element (string-element . 

23. string-element — | <any printable ASCII character> . 

24. comment *■(“{"( “(•* ) 

<any sequence of characters and ends of lines not containing *}" or “*)”> 

( “>" I “•)" ) • 

25. * lexkal-dircctire »■ “flaclide” Ble-nnme-string “•* | “fpage" . 

Pascal-3 EBNF Syntax 

This set of productions defines the syntax for the language accepted by the Pascal-2 compiler, 
including all extensions. 

This section is to be interpreted in conjunction with the lexical description of the language. 

Productions are based on those in the ISO standard. Where the language accepted by the Pascal-2 
compiler differs from this standard, the production is marked with an asterisk (“•”). 

1. * program — ( program-bending j (label-declaration-part 

| constant-deBnition-pnrt \ type-definition-part 
j variable-declaration-part | routine-declaration }[ body J . 

2. program-beading — “program" identifier [ “(" program-parameters 

3. program-parameters identifier identifier }. 

4. block a* declarations body . 

5. * declarations ■■ [ label-declaration-part ] [ constant-deBnition-part ) 

[ type-dcBnition-part ] [ variable-declaration-part | (routine-declaration }. 

6. label-declaration-part =* “label" label label }*;* . 

7. constant-definition-part » “coast” constant-definition constant-definition }“;” 

8. constant-definition = identifier constant. 

9. * constant =* ( [ sign j ( unsigned-number | identifier )) 

| character-string | structured-constant . 

10. * structured-constant — structured-type-identiBer constant-component-list . 

11. * constant-component-list =*■ “(” constant-component constant-component }“)” . 

12. * constant-component —■ constant | constant-component-list . 


Updated Janaary I0U 
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13. type-definition-part = “type” type-definition {“;* type-definition } “; * . 

14. type-definition = identifier “=* type . 

15. type = identifier | enumerated-type | subrange-type | set-type 

| array-type | record-type | file-type | ( “~* | “0” identifier ) . 

16. enumerated-type = “(* identifier {“/ identiSer }“)* . 

17. subrange-type = constant “. .* constant . 

18. set-type = [ “packed* ] “set* “of* type . 

19. array-type — [ “packed* ] “array* “[* type {“,* type }“]* “of* type . 

20. record-type = [ “packed* ] “record* field-list [ “;* ] “end* . 

21. field-list = ( fixed-part [ “;* variant-part ] ) | variant-part . 

22 . fixed-part = record-section {“;* record-section }. 

23. record-section = identiSer {“,* identiSer }“:* type . 

24. variant-part = “case* [ identiSer “:* ] identiSer “of* variant {“;* variant }. 

25. variant = constant {“,* constant }“:* “(* [ Seld-list ][“;*]“)*. 

26. Sle-type = [ “packed* ] “file* “of* type . 

27. variable-declaration-part = “var* variable-declaration “;* { variable-declaration *;* }. 

28. variable-declaration = var-speciScation {“,* var-speciScation }“:* type . 

29. var-speciScation = identiSer [ “origin* constant ] . 

30. routine-declaration == ( procedure-declaration | function-declaration ) “;* . 

31. procedure-declaration = ( procedure-heading “;* block ) 

| ( procedure-heading “;* directive ) | ( procedure-ident “;* biock ) . 

32. procedure-heading = “procedure* identiSer [ parameter-list ] . 

33. procedure-ident = “procedure* identiSer . 

34. function-declaration = ( function-heading “;* bioci ) 

| ( function-heading directive ) | ( function-ident “;* biock ) . 

35. function-heading = “function* identiSer [ parameter-list ] “:* identiSer . 

36. function-ident = “function” identiSer . 

37. parameter-list = “(* parameter-section {“;* parameter-section }“)* . 

38. parameter-section = ( [ “var* ] identiSer {“,* identiSer }“:” ( identiSer 

| conformant-array-schema ) ) | procedure-heading | function-heading . 

39. conformant-array-schema = packed-conformant-array-schema 

| unpacked-conformant-array-schema . 

40. packed-conformant-array-schema = “packed* “array* 

“[* index-type-speciScation “]* “of* type . 

41. unpacked-conformant-array-schema = “array* “[* index-type-speciScation 

{“;* index-type-speciScation }“]* “of* ( type | conformant-array-schema ) . 

42. index-type-speciScation = bound-identiSer “. .* bound-identiSer “:* type . 

43. body = compound-statement . 
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44. statement = [ label “:* ] 

[ assignment | procedure-call | compound-statement | if-statement 
| case-statement | while-statement | repeat-statement 
| for-statement | with-statement | goto-statement ] . 

45. assignment = variable “: =" expression . 

46. procedure-call = identifier [ arg-list | write-arg-list ] . 

47. arg-list = “(* expression {“,” expression }“)” . 

48. write-arg-list = “(* write-aig {“,* write-arg }*)” . 

49. write-arg = expression [ expression [ “:* expression ] ] . 

50. compound-statement = “begin* statement {“;* statement }*end* . 

51. if-statement = “if* expression “then* statement [ “else* statement ] . 

52. * case-statement = “case* expression “oi” [ case-element {“;* case-element }] [ “ 

[ “otherwise* statement [ “;* ] ] “end* . 

53. case-element = constant {“,* constant }“:* statement . 

54. while-statement = “while* expression “do* statement . 

55. repeat-statement = “repeat* statement statement } “until* expression . 

56. for-statement = “for* identifier “: =” expression ( “to* | “downto* ) expression 

“do” statement . 

57. with-statement = “with” expression expression }“do* statement . 

58. goto-statement = “goto* iabei . 

59. expression = simple-expression [ relational-operator simple-expression ] . 

60. relational-operator = “<* | “>* | “<=* | “>=” | a =” | u o n | a ia w . 

61. simple-expression = [ sign ] term { adding-operator term }. 

62. adding-operator = “+* | “-* | “or* . 

63. term = factor {multiplying-operator factor }. 

64. multiplying-operator = “** | “/” | “diw” | “mod” | “and* . 

65. factor = unsigned-constant \ variable | function-call | “not* factor 

| “(* expression “)* | bound-identifier | ( u [* | a (. w ) 

[ member-designator {“,* member-designator }](“]" | “.)* ) . 

66. unsigned-constant = unsigned-number | string | identifier | “nil* . 

67. function-call = identifier [ arg-list ] . 

68. variable = identifier | variable ( “[” | “(.” ) expression {“,* expression } 

( “]* | “.)* ) | variable ( — | “0* ) | variable “.* identifier . 

69. member-designator = expression [ “. .* expression ] . 


3-42 










